<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"><html xmlns="http://www.w3.org/1999/xhtml"><head><link rel="stylesheet" type="text/css" href="style.css" /><script type="text/javascript" src="highlight.js"></script></head><body><pre><span class="hs-comment">-- | Module location</span><span>
</span><span id="line-2"></span><span class="hs-keyword">module</span><span> </span><span class="hs-identifier">GHC.Unit.Module.Location</span><span>
</span><span id="line-3"></span><span>   </span><span class="hs-special">(</span><span> </span><span class="annot"><a href="GHC.Unit.Module.Location.html#ModLocation"><span class="hs-identifier">ModLocation</span></a></span><span class="hs-special">(</span><span class="hs-glyph">..</span><span class="hs-special">)</span><span>
</span><span id="line-4"></span><span>   </span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHC.Unit.Module.Location.html#addBootSuffix"><span class="hs-identifier">addBootSuffix</span></a></span><span>
</span><span id="line-5"></span><span>   </span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHC.Unit.Module.Location.html#addBootSuffix_maybe"><span class="hs-identifier">addBootSuffix_maybe</span></a></span><span>
</span><span id="line-6"></span><span>   </span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHC.Unit.Module.Location.html#addBootSuffixLocn"><span class="hs-identifier">addBootSuffixLocn</span></a></span><span>
</span><span id="line-7"></span><span>   </span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHC.Unit.Module.Location.html#addBootSuffixLocnOut"><span class="hs-identifier">addBootSuffixLocnOut</span></a></span><span>
</span><span id="line-8"></span><span>   </span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHC.Unit.Module.Location.html#removeBootSuffix"><span class="hs-identifier">removeBootSuffix</span></a></span><span>
</span><span id="line-9"></span><span>   </span><span class="hs-special">)</span><span>
</span><span id="line-10"></span><span class="hs-keyword">where</span><span>
</span><span id="line-11"></span><span>
</span><span id="line-12"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="GHC.Prelude.html"><span class="hs-identifier">GHC.Prelude</span></a></span><span>
</span><span id="line-13"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="GHC.Unit.Types.html"><span class="hs-identifier">GHC.Unit.Types</span></a></span><span>
</span><span id="line-14"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="GHC.Utils.Outputable.html"><span class="hs-identifier">GHC.Utils.Outputable</span></a></span><span>
</span><span id="line-15"></span><span>
</span><span id="line-16"></span><span class="hs-comment">-- | Module Location</span><span>
</span><span id="line-17"></span><span class="hs-comment">--</span><span>
</span><span id="line-18"></span><span class="hs-comment">-- Where a module lives on the file system: the actual locations</span><span>
</span><span id="line-19"></span><span class="hs-comment">-- of the .hs, .hi and .o files, if we have them.</span><span>
</span><span id="line-20"></span><span class="hs-comment">--</span><span>
</span><span id="line-21"></span><span class="hs-comment">-- For a module in another unit, the ml_hs_file and ml_obj_file components of</span><span>
</span><span id="line-22"></span><span class="hs-comment">-- ModLocation are undefined.</span><span>
</span><span id="line-23"></span><span class="hs-comment">--</span><span>
</span><span id="line-24"></span><span class="hs-comment">-- The locations specified by a ModLocation may or may not</span><span>
</span><span id="line-25"></span><span class="hs-comment">-- correspond to actual files yet: for example, even if the object</span><span>
</span><span id="line-26"></span><span class="hs-comment">-- file doesn't exist, the ModLocation still contains the path to</span><span>
</span><span id="line-27"></span><span class="hs-comment">-- where the object file will reside if/when it is created.</span><span>
</span><span id="line-28"></span><span>
</span><span id="line-29"></span><span class="hs-keyword">data</span><span> </span><span id="ModLocation"><span class="annot"><a href="GHC.Unit.Module.Location.html#ModLocation"><span class="hs-identifier hs-var">ModLocation</span></a></span></span><span>
</span><span id="line-30"></span><span>   </span><span class="hs-glyph">=</span><span> </span><span id="ModLocation"><span class="annot"><a href="GHC.Unit.Module.Location.html#ModLocation"><span class="hs-identifier hs-var">ModLocation</span></a></span></span><span> </span><span class="hs-special">{</span><span>
</span><span id="line-31"></span><span>        </span><span id="ml_hs_file"><span class="annot"><span class="annottext">ModLocation -&gt; Maybe FilePath
</span><a href="GHC.Unit.Module.Location.html#ml_hs_file"><span class="hs-identifier hs-var hs-var">ml_hs_file</span></a></span></span><span>   </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="../../base/src/GHC.Maybe.html#Maybe"><span class="hs-identifier hs-type">Maybe</span></a></span><span> </span><span class="annot"><a href="../../base/src/GHC.IO.html#FilePath"><span class="hs-identifier hs-type">FilePath</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-32"></span><span>                </span><span class="hs-comment">-- ^ The source file, if we have one.  Package modules</span><span>
</span><span id="line-33"></span><span>                </span><span class="hs-comment">-- probably don't have source files.</span><span>
</span><span id="line-34"></span><span>
</span><span id="line-35"></span><span>        </span><span id="ml_hi_file"><span class="annot"><span class="annottext">ModLocation -&gt; FilePath
</span><a href="GHC.Unit.Module.Location.html#ml_hi_file"><span class="hs-identifier hs-var hs-var">ml_hi_file</span></a></span></span><span>   </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="../../base/src/GHC.IO.html#FilePath"><span class="hs-identifier hs-type">FilePath</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-36"></span><span>                </span><span class="hs-comment">-- ^ Where the .hi file is, whether or not it exists</span><span>
</span><span id="line-37"></span><span>                </span><span class="hs-comment">-- yet.  Always of form foo.hi, even if there is an</span><span>
</span><span id="line-38"></span><span>                </span><span class="hs-comment">-- hi-boot file (we add the -boot suffix later)</span><span>
</span><span id="line-39"></span><span>
</span><span id="line-40"></span><span>        </span><span id="ml_obj_file"><span class="annot"><span class="annottext">ModLocation -&gt; FilePath
</span><a href="GHC.Unit.Module.Location.html#ml_obj_file"><span class="hs-identifier hs-var hs-var">ml_obj_file</span></a></span></span><span>  </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="../../base/src/GHC.IO.html#FilePath"><span class="hs-identifier hs-type">FilePath</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-41"></span><span>                </span><span class="hs-comment">-- ^ Where the .o file is, whether or not it exists yet.</span><span>
</span><span id="line-42"></span><span>                </span><span class="hs-comment">-- (might not exist either because the module hasn't</span><span>
</span><span id="line-43"></span><span>                </span><span class="hs-comment">-- been compiled yet, or because it is part of a</span><span>
</span><span id="line-44"></span><span>                </span><span class="hs-comment">-- unit with a .a file)</span><span>
</span><span id="line-45"></span><span>
</span><span id="line-46"></span><span>        </span><span id="ml_hie_file"><span class="annot"><span class="annottext">ModLocation -&gt; FilePath
</span><a href="GHC.Unit.Module.Location.html#ml_hie_file"><span class="hs-identifier hs-var hs-var">ml_hie_file</span></a></span></span><span>  </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="../../base/src/GHC.IO.html#FilePath"><span class="hs-identifier hs-type">FilePath</span></a></span><span>
</span><span id="line-47"></span><span>                </span><span class="hs-comment">-- ^ Where the .hie file is, whether or not it exists</span><span>
</span><span id="line-48"></span><span>                </span><span class="hs-comment">-- yet.</span><span>
</span><span id="line-49"></span><span>  </span><span class="hs-special">}</span><span> </span><span class="hs-keyword">deriving</span><span> </span><span id="local-6989586621680801954"><span id="local-6989586621680801956"><span id="local-6989586621680801966"><span class="annot"><span class="annottext">Int -&gt; ModLocation -&gt; ShowS
[ModLocation] -&gt; ShowS
ModLocation -&gt; FilePath
(Int -&gt; ModLocation -&gt; ShowS)
-&gt; (ModLocation -&gt; FilePath)
-&gt; ([ModLocation] -&gt; ShowS)
-&gt; Show ModLocation
forall a.
(Int -&gt; a -&gt; ShowS) -&gt; (a -&gt; FilePath) -&gt; ([a] -&gt; ShowS) -&gt; Show a
showList :: [ModLocation] -&gt; ShowS
$cshowList :: [ModLocation] -&gt; ShowS
show :: ModLocation -&gt; FilePath
$cshow :: ModLocation -&gt; FilePath
showsPrec :: Int -&gt; ModLocation -&gt; ShowS
$cshowsPrec :: Int -&gt; ModLocation -&gt; ShowS
</span><a href="../../base/src/GHC.Show.html#Show"><span class="hs-identifier hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var">Show</span></a></span></span></span></span><span>
</span><span id="line-50"></span><span>
</span><span id="line-51"></span><span class="hs-keyword">instance</span><span> </span><span id="local-6989586621680801947"><span class="annot"><a href="GHC.Utils.Outputable.html#Outputable"><span class="hs-identifier hs-type">Outputable</span></a></span><span> </span><span class="annot"><a href="GHC.Unit.Module.Location.html#ModLocation"><span class="hs-identifier hs-type">ModLocation</span></a></span></span><span> </span><span class="hs-keyword">where</span><span>
</span><span id="line-52"></span><span>   </span><span id="local-6989586621680801944"><span class="annot"><span class="annottext">ppr :: ModLocation -&gt; SDoc
</span><a href="GHC.Utils.Outputable.html#ppr"><span class="hs-identifier hs-var hs-var hs-var hs-var">ppr</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">FilePath -&gt; SDoc
</span><a href="GHC.Utils.Outputable.html#text"><span class="hs-identifier hs-var">text</span></a></span><span> </span><span class="annot"><span class="annottext">(FilePath -&gt; SDoc)
-&gt; (ModLocation -&gt; FilePath) -&gt; ModLocation -&gt; SDoc
forall b c a. (b -&gt; c) -&gt; (a -&gt; b) -&gt; a -&gt; c
</span><a href="../../base/src/GHC.Base.html#."><span class="hs-operator hs-var">.</span></a></span><span> </span><span class="annot"><span class="annottext">ModLocation -&gt; FilePath
forall a. Show a =&gt; a -&gt; FilePath
</span><a href="../../base/src/GHC.Show.html#show"><span class="hs-identifier hs-var">show</span></a></span><span>
</span><span id="line-53"></span><span>
</span><span id="line-54"></span><span class="hs-comment">-- | Add the @-boot@ suffix to .hs, .hi and .o files</span><span>
</span><span id="line-55"></span><span class="annot"><a href="GHC.Unit.Module.Location.html#addBootSuffix"><span class="hs-identifier hs-type">addBootSuffix</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="../../base/src/GHC.IO.html#FilePath"><span class="hs-identifier hs-type">FilePath</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="../../base/src/GHC.IO.html#FilePath"><span class="hs-identifier hs-type">FilePath</span></a></span><span>
</span><span id="line-56"></span><span id="addBootSuffix"><span class="annot"><span class="annottext">addBootSuffix :: ShowS
</span><a href="GHC.Unit.Module.Location.html#addBootSuffix"><span class="hs-identifier hs-var hs-var">addBootSuffix</span></a></span></span><span> </span><span id="local-6989586621680801939"><span class="annot"><span class="annottext">FilePath
</span><a href="#local-6989586621680801939"><span class="hs-identifier hs-var">path</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">FilePath
</span><a href="#local-6989586621680801939"><span class="hs-identifier hs-var">path</span></a></span><span> </span><span class="annot"><span class="annottext">FilePath -&gt; ShowS
forall a. [a] -&gt; [a] -&gt; [a]
</span><a href="../../base/src/GHC.Base.html#%2B%2B"><span class="hs-operator hs-var">++</span></a></span><span> </span><span class="annot"><span class="annottext">FilePath
</span><span class="hs-string">&quot;-boot&quot;</span></span><span>
</span><span id="line-57"></span><span>
</span><span id="line-58"></span><span class="hs-comment">-- | Remove the @-boot@ suffix to .hs, .hi and .o files</span><span>
</span><span id="line-59"></span><span class="annot"><a href="GHC.Unit.Module.Location.html#removeBootSuffix"><span class="hs-identifier hs-type">removeBootSuffix</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="../../base/src/GHC.IO.html#FilePath"><span class="hs-identifier hs-type">FilePath</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="../../base/src/GHC.IO.html#FilePath"><span class="hs-identifier hs-type">FilePath</span></a></span><span>
</span><span id="line-60"></span><span id="removeBootSuffix"><span class="annot"><span class="annottext">removeBootSuffix :: ShowS
</span><a href="GHC.Unit.Module.Location.html#removeBootSuffix"><span class="hs-identifier hs-var hs-var">removeBootSuffix</span></a></span></span><span> </span><span class="annot"><span class="annottext">FilePath
</span><span class="hs-string">&quot;-boot&quot;</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">[</span><span class="hs-special">]</span><span>
</span><span id="line-61"></span><span class="annot"><a href="GHC.Unit.Module.Location.html#removeBootSuffix"><span class="hs-identifier hs-var">removeBootSuffix</span></a></span><span> </span><span class="hs-special">(</span><span id="local-6989586621680801938"><span class="annot"><span class="annottext">Char
</span><a href="#local-6989586621680801938"><span class="hs-identifier hs-var">x</span></a></span></span><span class="annot"><span class="hs-glyph hs-type">:</span></span><span id="local-6989586621680801937"><span class="annot"><span class="annottext">FilePath
</span><a href="#local-6989586621680801937"><span class="hs-identifier hs-var">xs</span></a></span></span><span class="hs-special">)</span><span>  </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Char
</span><a href="#local-6989586621680801938"><span class="hs-identifier hs-var">x</span></a></span><span> </span><span class="annot"><span class="annottext">Char -&gt; ShowS
forall a. a -&gt; [a] -&gt; [a]
</span><span class="hs-glyph hs-var">:</span></span><span> </span><span class="annot"><span class="annottext">ShowS
</span><a href="GHC.Unit.Module.Location.html#removeBootSuffix"><span class="hs-identifier hs-var">removeBootSuffix</span></a></span><span> </span><span class="annot"><span class="annottext">FilePath
</span><a href="#local-6989586621680801937"><span class="hs-identifier hs-var">xs</span></a></span><span>
</span><span id="line-62"></span><span class="annot"><a href="GHC.Unit.Module.Location.html#removeBootSuffix"><span class="hs-identifier hs-var">removeBootSuffix</span></a></span><span> </span><span class="hs-special">[</span><span class="hs-special">]</span><span>      </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">ShowS
forall a. HasCallStack =&gt; FilePath -&gt; a
</span><a href="../../base/src/GHC.Err.html#error"><span class="hs-identifier hs-var">error</span></a></span><span> </span><span class="annot"><span class="annottext">FilePath
</span><span class="hs-string">&quot;removeBootSuffix: no -boot suffix&quot;</span></span><span>
</span><span id="line-63"></span><span>
</span><span id="line-64"></span><span>
</span><span id="line-65"></span><span class="hs-comment">-- | Add the @-boot@ suffix if the @Bool@ argument is @True@</span><span>
</span><span id="line-66"></span><span class="annot"><a href="GHC.Unit.Module.Location.html#addBootSuffix_maybe"><span class="hs-identifier hs-type">addBootSuffix_maybe</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="GHC.Unit.Types.html#IsBootInterface"><span class="hs-identifier hs-type">IsBootInterface</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="../../base/src/GHC.IO.html#FilePath"><span class="hs-identifier hs-type">FilePath</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="../../base/src/GHC.IO.html#FilePath"><span class="hs-identifier hs-type">FilePath</span></a></span><span>
</span><span id="line-67"></span><span id="addBootSuffix_maybe"><span class="annot"><span class="annottext">addBootSuffix_maybe :: IsBootInterface -&gt; ShowS
</span><a href="GHC.Unit.Module.Location.html#addBootSuffix_maybe"><span class="hs-identifier hs-var hs-var">addBootSuffix_maybe</span></a></span></span><span> </span><span id="local-6989586621680801935"><span class="annot"><span class="annottext">IsBootInterface
</span><a href="#local-6989586621680801935"><span class="hs-identifier hs-var">is_boot</span></a></span></span><span> </span><span id="local-6989586621680801934"><span class="annot"><span class="annottext">FilePath
</span><a href="#local-6989586621680801934"><span class="hs-identifier hs-var">path</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">case</span><span> </span><span class="annot"><span class="annottext">IsBootInterface
</span><a href="#local-6989586621680801935"><span class="hs-identifier hs-var">is_boot</span></a></span><span> </span><span class="hs-keyword">of</span><span>
</span><span id="line-68"></span><span>  </span><span class="annot"><span class="annottext">IsBootInterface
</span><a href="GHC.Unit.Types.html#IsBoot"><span class="hs-identifier hs-var">IsBoot</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">ShowS
</span><a href="GHC.Unit.Module.Location.html#addBootSuffix"><span class="hs-identifier hs-var">addBootSuffix</span></a></span><span> </span><span class="annot"><span class="annottext">FilePath
</span><a href="#local-6989586621680801934"><span class="hs-identifier hs-var">path</span></a></span><span>
</span><span id="line-69"></span><span>  </span><span class="annot"><span class="annottext">IsBootInterface
</span><a href="GHC.Unit.Types.html#NotBoot"><span class="hs-identifier hs-var">NotBoot</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">FilePath
</span><a href="#local-6989586621680801934"><span class="hs-identifier hs-var">path</span></a></span><span>
</span><span id="line-70"></span><span>
</span><span id="line-71"></span><span class="hs-comment">-- | Add the @-boot@ suffix to all file paths associated with the module</span><span>
</span><span id="line-72"></span><span class="annot"><a href="GHC.Unit.Module.Location.html#addBootSuffixLocn"><span class="hs-identifier hs-type">addBootSuffixLocn</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="GHC.Unit.Module.Location.html#ModLocation"><span class="hs-identifier hs-type">ModLocation</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="GHC.Unit.Module.Location.html#ModLocation"><span class="hs-identifier hs-type">ModLocation</span></a></span><span>
</span><span id="line-73"></span><span id="addBootSuffixLocn"><span class="annot"><span class="annottext">addBootSuffixLocn :: ModLocation -&gt; ModLocation
</span><a href="GHC.Unit.Module.Location.html#addBootSuffixLocn"><span class="hs-identifier hs-var hs-var">addBootSuffixLocn</span></a></span></span><span> </span><span id="local-6989586621680801931"><span class="annot"><span class="annottext">ModLocation
</span><a href="#local-6989586621680801931"><span class="hs-identifier hs-var">locn</span></a></span></span><span>
</span><span id="line-74"></span><span>  </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">ModLocation
</span><a href="#local-6989586621680801931"><span class="hs-identifier hs-var">locn</span></a></span><span> </span><span class="hs-special">{</span><span> </span><span class="annot"><span class="annottext">ml_hs_file :: Maybe FilePath
</span><a href="GHC.Unit.Module.Location.html#ml_hs_file"><span class="hs-identifier hs-var">ml_hs_file</span></a></span><span>  </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">ShowS -&gt; Maybe FilePath -&gt; Maybe FilePath
forall (f :: * -&gt; *) a b. Functor f =&gt; (a -&gt; b) -&gt; f a -&gt; f b
</span><a href="../../base/src/GHC.Base.html#fmap"><span class="hs-identifier hs-var">fmap</span></a></span><span> </span><span class="annot"><span class="annottext">ShowS
</span><a href="GHC.Unit.Module.Location.html#addBootSuffix"><span class="hs-identifier hs-var">addBootSuffix</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">ModLocation -&gt; Maybe FilePath
</span><a href="GHC.Unit.Module.Location.html#ml_hs_file"><span class="hs-identifier hs-var hs-var">ml_hs_file</span></a></span><span> </span><span class="annot"><span class="annottext">ModLocation
</span><a href="#local-6989586621680801931"><span class="hs-identifier hs-var">locn</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-75"></span><span>         </span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">ml_hi_file :: FilePath
</span><a href="GHC.Unit.Module.Location.html#ml_hi_file"><span class="hs-identifier hs-var">ml_hi_file</span></a></span><span>  </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">ShowS
</span><a href="GHC.Unit.Module.Location.html#addBootSuffix"><span class="hs-identifier hs-var">addBootSuffix</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">ModLocation -&gt; FilePath
</span><a href="GHC.Unit.Module.Location.html#ml_hi_file"><span class="hs-identifier hs-var hs-var">ml_hi_file</span></a></span><span> </span><span class="annot"><span class="annottext">ModLocation
</span><a href="#local-6989586621680801931"><span class="hs-identifier hs-var">locn</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-76"></span><span>         </span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">ml_obj_file :: FilePath
</span><a href="GHC.Unit.Module.Location.html#ml_obj_file"><span class="hs-identifier hs-var">ml_obj_file</span></a></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">ShowS
</span><a href="GHC.Unit.Module.Location.html#addBootSuffix"><span class="hs-identifier hs-var">addBootSuffix</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">ModLocation -&gt; FilePath
</span><a href="GHC.Unit.Module.Location.html#ml_obj_file"><span class="hs-identifier hs-var hs-var">ml_obj_file</span></a></span><span> </span><span class="annot"><span class="annottext">ModLocation
</span><a href="#local-6989586621680801931"><span class="hs-identifier hs-var">locn</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-77"></span><span>         </span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">ml_hie_file :: FilePath
</span><a href="GHC.Unit.Module.Location.html#ml_hie_file"><span class="hs-identifier hs-var">ml_hie_file</span></a></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">ShowS
</span><a href="GHC.Unit.Module.Location.html#addBootSuffix"><span class="hs-identifier hs-var">addBootSuffix</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">ModLocation -&gt; FilePath
</span><a href="GHC.Unit.Module.Location.html#ml_hie_file"><span class="hs-identifier hs-var hs-var">ml_hie_file</span></a></span><span> </span><span class="annot"><span class="annottext">ModLocation
</span><a href="#local-6989586621680801931"><span class="hs-identifier hs-var">locn</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-special">}</span><span>
</span><span id="line-78"></span><span>
</span><span id="line-79"></span><span class="hs-comment">-- | Add the @-boot@ suffix to all output file paths associated with the</span><span>
</span><span id="line-80"></span><span class="hs-comment">-- module, not including the input file itself</span><span>
</span><span id="line-81"></span><span class="annot"><a href="GHC.Unit.Module.Location.html#addBootSuffixLocnOut"><span class="hs-identifier hs-type">addBootSuffixLocnOut</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="GHC.Unit.Module.Location.html#ModLocation"><span class="hs-identifier hs-type">ModLocation</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="GHC.Unit.Module.Location.html#ModLocation"><span class="hs-identifier hs-type">ModLocation</span></a></span><span>
</span><span id="line-82"></span><span id="addBootSuffixLocnOut"><span class="annot"><span class="annottext">addBootSuffixLocnOut :: ModLocation -&gt; ModLocation
</span><a href="GHC.Unit.Module.Location.html#addBootSuffixLocnOut"><span class="hs-identifier hs-var hs-var">addBootSuffixLocnOut</span></a></span></span><span> </span><span id="local-6989586621680801930"><span class="annot"><span class="annottext">ModLocation
</span><a href="#local-6989586621680801930"><span class="hs-identifier hs-var">locn</span></a></span></span><span>
</span><span id="line-83"></span><span>  </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">ModLocation
</span><a href="#local-6989586621680801930"><span class="hs-identifier hs-var">locn</span></a></span><span> </span><span class="hs-special">{</span><span> </span><span class="annot"><span class="annottext">ml_hi_file :: FilePath
</span><a href="GHC.Unit.Module.Location.html#ml_hi_file"><span class="hs-identifier hs-var">ml_hi_file</span></a></span><span>  </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">ShowS
</span><a href="GHC.Unit.Module.Location.html#addBootSuffix"><span class="hs-identifier hs-var">addBootSuffix</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">ModLocation -&gt; FilePath
</span><a href="GHC.Unit.Module.Location.html#ml_hi_file"><span class="hs-identifier hs-var hs-var">ml_hi_file</span></a></span><span> </span><span class="annot"><span class="annottext">ModLocation
</span><a href="#local-6989586621680801930"><span class="hs-identifier hs-var">locn</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-84"></span><span>         </span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">ml_obj_file :: FilePath
</span><a href="GHC.Unit.Module.Location.html#ml_obj_file"><span class="hs-identifier hs-var">ml_obj_file</span></a></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">ShowS
</span><a href="GHC.Unit.Module.Location.html#addBootSuffix"><span class="hs-identifier hs-var">addBootSuffix</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">ModLocation -&gt; FilePath
</span><a href="GHC.Unit.Module.Location.html#ml_obj_file"><span class="hs-identifier hs-var hs-var">ml_obj_file</span></a></span><span> </span><span class="annot"><span class="annottext">ModLocation
</span><a href="#local-6989586621680801930"><span class="hs-identifier hs-var">locn</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-85"></span><span>         </span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">ml_hie_file :: FilePath
</span><a href="GHC.Unit.Module.Location.html#ml_hie_file"><span class="hs-identifier hs-var">ml_hie_file</span></a></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">ShowS
</span><a href="GHC.Unit.Module.Location.html#addBootSuffix"><span class="hs-identifier hs-var">addBootSuffix</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">ModLocation -&gt; FilePath
</span><a href="GHC.Unit.Module.Location.html#ml_hie_file"><span class="hs-identifier hs-var hs-var">ml_hie_file</span></a></span><span> </span><span class="annot"><span class="annottext">ModLocation
</span><a href="#local-6989586621680801930"><span class="hs-identifier hs-var">locn</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-special">}</span><span>
</span><span id="line-86"></span><span>
</span><span id="line-87"></span><span>
</span><span id="line-88"></span></pre></body></html>